home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #204 (1992)(Rhein-Sieg-Soft).zip / Franz PD Disk #204 (1992)(Rhein-Sieg-Soft).adf / S.A.G / S.A.G.LST < prev    next >
File List  |  1992-11-19  |  3KB  |  114 lines
  1. OPENW #0,0,0,640,200,0,5126
  2. TITLEW #0,"System-Alert-Generator"
  3. PRINT
  4. PRINT " SYSTEM-ALERT-GENERATOR    Version 08/15"
  5. PRINT " ---------------------------------------"
  6. PRINT
  7. PRINT " Ein Hilfsprogramm für GFA-Basic-Programmierer."
  8. PRINT " Auf die schnelle zurechtgemümmelt (20 Min.) von:"
  9. PRINT
  10. PRINT " Thomas Günther"
  11. PRINT " Erkrather Str.109"
  12. PRINT " 4000 Düsseldorf 1"
  13. PRINT
  14. PRINT " Das Machwerk hier erzeugt eine ALERT-Routine wie man"
  15. PRINT " sie von den Guru-Meditations her kennt, und speichert"
  16. PRINT " diese als "+CHR$(34)+"Merge"+CHR$(34)+"-fähiges GFA-Basic-Programm im"
  17. PRINT " ASCII-Format ab."
  18. PRINT
  19. PRINT " Fragen zur GFA-Basic Programmierung?"
  20. PRINT " Schickt eure Briefe einfach an meine Adresse. (Rückporto!)"
  21. PRINT
  22. PRINT " Sach- und Geldspenden sind ausdrücklich erwünscht!"
  23. PRINT
  24. PRINT "       Taste Drücken..."
  25. WHILE INKEY$=""
  26. WEND
  27. main:
  28. CLEARW #0
  29. PRINT AT(1,1);"Geben Sie jetzt Ihren Text ein (max.24 Zeilen zu 78 Zeichen)."
  30. PRINT AT(1,2);"Drücken von RETURN ohne Text schließt die Eingabe ab."
  31. PRINT AT(1,3);"Die Eingabe von ~ (Tilde) überspringt eine Zeile."
  32. PRINT AT(1,4);"Die Texte werden bei der Ausgabe automatisch zentriert."
  33. eingabe:
  34. CLEAR
  35. DIM text$(23),x%(23)
  36. final$=""
  37. y|=15
  38. z|=1
  39. FOR i|=0 TO 23
  40.   PRINT AT(1,6);"Zeile ";z|;": "
  41.   FORM INPUT 78,text$(i|)
  42.   PRINT AT(1,8);"Zeilenlänge ";
  43.   PRINT USING "##\.......\",LEN(text$(i|))," Zeichen."
  44.   PRINT AT(1,7);SPACE$(78)
  45.   EXIT IF text$(i|)=""
  46.   IF RIGHT$(text$(i|),1)="~"
  47.     text$(i|)=""
  48.   ENDIF
  49.   IF text$(i|)<>""
  50.     x%(i|)=LEN(text$(i|))*8
  51.     x%(i|)=INT(640-x%(i|))
  52.     x%(i|)=INT(x%(i|)/2)
  53.     final$=final$+MKI$(x%(i|))+CHR$(y|)+text$(i|)+CHR$(0)+CHR$(1)
  54.   ENDIF
  55.   INC z|
  56.   y|=y|+10
  57. NEXT i|
  58. DEC z|
  59. MID$(final$,LEN(final$),1)=CHR$(0)
  60. '
  61. PRINT AT(1,10);"Wollen Sie die ALERT-Meldung testen? (j/n): ";
  62. FORM INPUT 1,a$
  63. IF a$="j"
  64.   ~DisplayAlert(0,V:final$,(z|*10)+15)
  65. ENDIF
  66. '
  67. PRINT AT(1,10);SPACE$(70)
  68. PRINT AT(1,10);"Eingabe widerholen...? (j/n): ";
  69. FORM INPUT 1,a$
  70. IF a$="j"
  71.   PRINT AT(1,10);SPACE$(32)
  72.   GOTO eingabe
  73. ENDIF
  74. '
  75. textdatei:
  76. PRINT AT(1,12);"Geben Sie nun den Filenamen an.    ENDE = Programmende."
  77. PRINT AT(1,14);"Dateiname: ";
  78. FORM INPUT 255,datei$
  79. IF datei$=""
  80.   PCOLOR 3
  81.   PRINT AT(1,16);"Kein Dateiname angegeben..."
  82.   PCOLOR 1
  83.   DELAY 1
  84.   PRINT AT(1,16);SPACE$(27)
  85.   GOTO textdatei
  86. ELSE IF UPPER$(datei$)="ENDE"
  87.   GOTO ende
  88. ENDIF
  89. '
  90. speichern:
  91. BSAVE datei$+".INL",V:final$,LEN(final$)
  92. '
  93. OPEN "o",#1,datei$+".LST"
  94. PRINT #1,"' Listing erzeugt mit SYSTEM-ALERT-GENERATOR"
  95. PRINT #1,"'         (c) 1992 by Thomas Günther"
  96. PRINT #1,"' ------------------------------------------"
  97. PRINT #1,"'"
  98. PRINT #1,"INLINE text%,"+STR$(LEN(final$))
  99. PRINT #1,"taste|=DisplayAlert(0,text%,"+STR$((z|*10)+15)+")"
  100. PRINT #1,"'"
  101. PRINT #1,"' Mausabfrage:   taste|=1 -> Linke Maustaste"
  102. PRINT #1,"'                taste|=0 -> Rechte Maustaste"
  103. CLOSE #1
  104. '
  105. PRINT AT(1,20);"Noch einmal? (j/n): ";
  106. FORM INPUT 1,a$
  107. IF a$="j"
  108.   GOTO main
  109. ENDIF
  110. '
  111. ende:
  112. CLOSEW #0
  113. END
  114.